PC Professionell 2005 June/PCpro_2005_06.ISO/files/opensource/amc/amc_install.exe/{app}/Scripts/Cinedvd (Br).ifs

Text File | 2005-03-13 | 6.0 KB | 190 lines

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=O Guardiπo (<link>[e-mail]</link>)
Title=Cinedvd
Description=Movie importation script for cinedvd.com.br
Site=www.cinedvd.com.br
Language=PT
Version=1.0 - 25 Fevereiro 2005
Requires=3.5.0
Comments=Script feito por O Guardiπo (www.guardiao.pt.vu) para o site "www.cinedvd.com.br" |
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]

***************************************************)

program Vervideo;
uses StringUtils1;
var
  MovieName, MovieURL: string;
  LineNr, BeginPos, EndPos: Integer;

procedure AnalyzeFilmPage(mode:integer;Address: String);
var
  Page : TStringList;
  Value,value2 : string;
begin
  Page := TStringList.Create;
if mode=0 then
begin
  Page.Text := GetPage(Address);
  SetField(fieldURL, Address);
end
else
begin
  Page.Text:=Address;
  BeginPos:=Pos('<a href="filme.asp?sAcao=SOM&nIdFilme=',Page.Text)+38;
  value:=Copy(Page.Text,BeginPos,Length(Page.Text));
  EndPos:=Pos('">',value);
  value:=Copy(value,1,EndPos-1);
  value:='http://www.cinedvd.com.br/Filme.asp?sAcao=CONSULTA&nIdFilme='+value;
  SetField(fieldURL, value);
end;
    LineNr := FindLine('<td width="11">   </td>', Page, 0)+2;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'           ','');
    SetField(fieldTranslatedTitle, value);

    LineNr := FindLine('<td class="cabAzul" colspan="5">',Page,0);
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'            ','');
    SetField(fieldOriginalTitle, value);

    LineNr := FindLine('">Ano Produτπo</td>',Page,0)+5;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    SetField(fieldYear, value);

    LineNr := FindLine('">Paφs Origem</td>', Page, 0)+5;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'                ','');
    SetField(fieldCountry, value);

    LineNr := FindLine('">GΩnero</td>', Page, 0)+4;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    SetField(fieldCategory, value);

    LineNr := FindLine('">Diretor</td>', Page, 0)+7;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    SetField(fieldDirector, value);

    value := Page.text;
    BeginPos := Pos('<td rowspan="3" class="detNormal" valign="top">', value)+60;
    value:=Copy(value,BeginPos,Length(value));
    EndPos := pos('</td>',value);
    value:=Copy(value,1,EndPos-1);
    value:=StringReplace(value,'<br>',', ');
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'  ','');
    value:=Copy(value,1,Length(value)-6);
    value:=StringReplace(value,#13#10,'');
    SetField(fieldActors, value);

    LineNr := FindLine('">Sinopse</td>', Page, 0)+4;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'                  ','');
    SetField(fieldDescription, value);

    LineNr := FindLine('">Duraτπo</td>', Page, 0)+5;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,' min','');
    SetField(fieldLength, value);

    LineNr := FindLine('">Distribuidora</td>', Page, 0)+5;
    value := Page.GetString(LineNr);
    HTMLRemoveTags(value);
    HTMLDecode(value);
    value:=StringReplace(value,'                ','');
    SetField(fieldProducer, value);

    LineNr := FindLine('" vspace="10" hspace="0">', Page, 0);
    value := Page.GetString(LineNr);
    BeginPos:=Pos('<img src="',value)+10;
    EndPos:=Pos('" vspace="10" hspace="0">',value);
    value:=Copy(value,BeginPos,EndPos-BeginPos);
    value:='http://www.cinedvd.com.br/'+value;
    GetPicture(Value);
end;

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(Pattern, List.GetString(i)) <> 0 then
    begin
      result := i;
      Break;
    end;
end;

procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  x:integer;
  MovieAddress, findMovieName,linedown : string;
  guardar, nome_filme:string;
begin
  PickTreeClear;
  Page := TStringList.Create;
  Page.Text :=(GetPage(Address));


if Pos('<td class="detNormal" colspan="3">',Page.Text)=0 then
begin
  repeat
        BeginPos:=Pos('<a href="javascript:funShowFilme(',Page.Text)+33;
        Page.Text:=Copy(Page.Text,BeginPos,Length(Page.Text));
        EndPos:=Pos(')">',Page.Text)-2;
        MovieURL:='http://www.cinedvd.com.br/Filme.asp?sAcao=CONSULTA&nIdFilme='+Copy(Page.Text,1,EndPos-1);
        BeginPos:=Pos('<td class="detAzulPeq" colspan="2">',Page.Text);
        Page.Text:=Copy(Page.Text,BeginPos,Length(Page.Text));
        EndPos:=Pos('</td>',Page.Text);
        nome_filme:=Copy(Page.Text,1,EndPos-1);
        HTMLRemoveTags(nome_filme);
        HTMLDecode(nome_filme);
        PickTreeAdd(nome_filme, MovieURL);
   until (Pos('<a href="javascript:funShowFilme(', Page.Text)=0);
    if PickTreeExec(Address) then
      AnalyzeFilmPage(0,Address);
end
else
      AnalyzeFilmPage(1,Page.text);
    Page.Free;
end;

begin
  MovieName := GetField(fieldOriginalTitle);
  if Input('Importar do Vervideo', 'Escreva o nome do filme:', MovieName) then
  begin
    MovieName:=StringReplace(MovieName,' ','+');
    AnalyzePage('http://www.cinedvd.com.br/FilmeLista.asp?sAcao=CONSULTA&sBusca='+MovieName);
  end;
end.